home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
vbwarn.zip
/
GLOBALS.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-12-11
|
619b
|
18 lines
Option Explicit
Global GlobalPersonID As Long
Global Const EM_EDIT = 1
Global Const EM_ADDNEW = 2
Global Const MSGBOX_TYPE = 4 + 32
Global Const MB_EXCL = 48
Global Const YES = 6 'for msgbox return
Global Const QPerson = "SELECT DISTINCTROW Person.* FROM Person "
Global Const QOff = "SELECT DISTINCTROW Officer.* FROM Officer "
Global Const QTikPerson = "SELECT DISTINCTROW Tik.*, Person.*, Officer.* FROM Officer INNER JOIN (Person INNER JOIN Tik ON Person.ID = Tik.PersonID) ON Officer.OffID = Tik.OfficerID "
Global NL
Global Db As Database
Global OffTable As Dynaset
Global PerTable As Dynaset